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Introduction 

The  Naval  Post-Graduate  School's  Computer  Laboratory  has 
developed  a  dialect  of  LISP,  called  * Navlisp,  to  run  under 
PWE/UlliX  on  a  PDP  11/50.  While  loosely  based  on  Maclisp,  Navlisp 
is  unlike  other  LISP  systems  in  several  important  ways. 

Like  a3 3  processes  that  run  under  UNIX,  Navlisp  interfaces 
easily  to  other  processes.  Since  many  functions  normally  found 
in  LISP  systems  te.g.  LISP  oriented  editors)  are  available 
through  the  UNIX  environment,  Navlisp  is  much  smaller  than  con¬ 
ventional  LISP  systems  (approximately  56Z  of  code)  and  yet  has 
full  LISP  functionality. 

Navlisp  is  also  different  from  other  LISPs  in  the  design  of 
the  language.  A  new  control  structure,  Parnas'  it-ti*,  has  been 
implemented  as  an  enhancement  to  the  standard-  LISP  cond . 
Surprisingly,  this  modification  is  compatible  with  the  old  defin- 
ition  of  cond,  but  is  much  more  powerful:  with  the  let  function, 
the  new  cond  is  powerful  enough  that  the  very  unstructured  (and 
anachronistic)  prog  feature  of  standard  LISP  is  not  necessary, 
and  has  not  been* implemented  in  Navlisp. 

In  addition,  a  list  element  accessing  function  suggested  by 
Sana  Scott  has  been  implemented:  (n  list)  will  access  the  nth 
element  of  list,  where  n  is  an  integer  (see  the  description  of 
the  0  function) . 

This  manual  is  not  a  tutorial  to  LISP.  It  is  intended  for 
those  who  know  the  basics  of  the  LISP  programming  language  and 
wish  to  use  the  Navlisp  dialect.  The  descriptions  contained 
herein  are  brief  and  assume  at  least  a  passing  knowledge  of  both 
LISP  and  UNIX.  Winston  and  van  Horn's  LISP  book  provides  a  good 
tutorial  to  the  language,  and  is  highly  recommended. 


1 .  Running  Navlisp 


Navlisp  maintains  a  user  "workspace"  in  which  user  defined 
objects  are  maintained  in  internal  format.  This  workspace  is 
loaded  each  time  Navlisp  is  executed,  and  saved  each  time  the 
user  exits  Navlisp.  The  workspace  must  be  initialized  in  your 
directory  before  running  Navlisp.  To  do  this,  run  initnavlisp 
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first: 


%  initnavlisp  :  do  only  once 
^  navlisp  :  now  running 

Currently,  the  default  workspace  file  naze  is  .navlisp  in  the 
current  directory.  In  anticipation  of  future  enhancements ,  the 
user  is  able  to  specify  a  different  workspace  file  name  on  the 
command  line  for  initnavlisp  or  navlisp.  This  file  will  then  be 
the  target  of  SAVE,  RESTORE,' SCRUNCH,  and  bye  (q.v.).  Currently, 
the  file  name  cannot  be  changed  while  navlisp  is  running, 
although  that  is  a  planned  enhancement.  Z.g.,  to  use  ../myvork 
as  the  workspace  storage  file: 

i>  initnavlisp  ../mywork 

%  navlisp  ../mywork 

Some  development  work  will  continue  on  Navlisp.  In  the  future 
you  might  receive  a  warning  message  to  the  effect  that  the 
current  version  of  Navlisp  does  not  match  the  version  of  init¬ 
navlisp  that  created  your  workspace.  This  is  usually  not  signi¬ 
ficant.  The  only  compatibility  problem  that  may  arise  is  when 
you  attempt  to  use  a  system  function  in  Navlisp  that  the  init- 
navlisn  program  did  not  know  about.  Occasionally,  the  changes  to 
Navlisp  will  create  irreconcilable  differences,  and  initnavlisp 
will  have  to  be  re-run.  This  will,  of  course,  destroy  the  con¬ 
tents  of  your  current  workspace.  Therefore,  keep  your  favorite 
functions  in  source  files.  Then  they  can  be  restored  easily  (see 
getfun  for  an  example  of  how  to  do  this ) . 

File  handling  capabilities  are  embedded  in  the  UNIX  operat¬ 
ing  system.  Navlisp  gets  its  input  from  the  standard  input  file 
(stdin)  and  writes  on  the  standard  output  file  (stdout).  This 
can  be  changed  on  the  invocation  line  by: 

%  navlisp  <notherin  >notherout 

as  for  any  other  UNIX  process. 

For  news  on  the  latest  developments  in  Navlisp,  display  the 
file  /etc/navlispnews.  E.g., 

4  A 

„  -^-page  navlispnews 


The  following  meta-terms  will  be  used  in  the  next  section  to  help 
describe  the  objects  and  functions  of  Navlisp.  Note  that  these 
meta-terms  are  not  part  of  the  programming  language  proper  and 
are  not  recognized  by  Navlisp  as  they  are  used  below  (unless  the 
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user  lefir.es  them  30''. 

=>  A  symbol  used  to  denote  the  resulting  value  or  type  of 

a  function. 

alist  Refers  to  a  special  data  structure  used  rather  commonly 
in  the  interpreter: 

{(ob jl  .  vail)  (obj2  .  val2)  (obj3  •  val?)  ...  ). 

It  is  an  'association  list'  in  that  it  associates  an 
object  with  a  value.  The  elements  of  an  assocation 
list  are  dotted  pairs. 

boolean  3asically,  this  refers  to  one  of  two  values:  nil 
(false)  or  T  (true).  However,  many  functions  in  LISP 
recognize  any  non-nil  value  as  a  true  value.  See 

member  and  remprop  for  examples. 

dotted  pair  The  basic  element  of  LISP  is  the  cell,  each  of  which 
consists  of  two  fields:  the  car  and  the  cdr  fields. 
Most  LISP  cells  contain  atoms  or  lists  in  the  car  field 
and  only  lists  in  the  cdr  field.  Occasionally  (see 
alist,  above)  it  is  convenient  to  store  atoms  in  the 
cdr  field:  this  cell  is  then  said  to  contain  a  "dotted 
pair".  Note  that  the  following  two  3-expressions  are 
identical,  but  the  first  shows  the  contents  of  the 
cells  of  the  list  explicitly,  while  the  second  is  the 
more  usual  representation: 

(a  .  (b  .  (c  .  (d  .  nil)))) 

(abed) 

exp  Used  wherever  a  numeric  expression  could  be  used. 

Implies  that  the  type  of  the  expression  must  be  an 
integer  or  real. 

list  Implies  that  only  lists  are  acceptable  and  that  atoms 

are  excluded. 

a  an  atom,  not  a  list 

(a)  acceptable,  a  list 

(a  (b  c))  another  good  list 

number  An  atom  type  that  subsumes  both  integers  and  reals. 

object  Refers  to  any  entity  that  can  be  defined  in  Navlisp: 

atoms,  numbers,  strings,  symbolic  atoms,  or  lists  (not 
a  mutually  exclusive  list  of  entities). 

oblist  Navlisp  keeps  a  list  of  all  defined  symbols.  This  list 
is  of  the  form: 
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’.synboll  synboll  symbol? 

where  each  symboli  is  a  plist. 


plist  Each  element  of  the  oblist  is  the  property  list  (i.e., 
plist)  of  a  symbol,  -his  plist  is  of  the  form 

(syml  objectl  sym2  object2  sym3  object?  •••  ^ 

The  symi  are  the  attributes,  or  properties,  of  the  sym¬ 
bol.  Unless  the  user  has  modified  the  plist,  one  of 
these  symi  is  the  property  FNAME.  Other  symbol  proper¬ 
ties  the  system  recognizes  are  SC3R,  FSUER,  LSUBR, 
ZXPR,  FSXPR,  LEXPR,  PILE,  CADRS,  VALUE,  and  TRACE  (all 
of  which  are  defined  below) .  The  user  may  define  addi¬ 
tional  properties  through  the  use  of  putprop. 

S-expr  Denotes  a  list;  a  balanced  set  of  parentheses: 


(a  b) 

(a  b)) 

(a  (b  c)  d) 
(a  ((b  c)  d) 


is  an  S-expr 
is  an  S-expr 
is  not 

is  an  S-expr 
is  not 


string  Refers  to  a  concatenation  of  zero  or  more  characters. 

The  functions  print  and  fprint  print  strings  surrounded 
with  double-quotes  "and  with  all  non-printable  charac¬ 
ters  expanded  using  the  up-arrow  escape  convention  (see 
the  section  on  input  conventions).  The  functions 
printf  and  fprintf  do  not  print  the  surrounding  quotes, 
nor  do  they  translate  the  non-printable  characters. 

symbol  There  are  basically  three  kinds  of  atoms  in  Navlisp: 

numbers,  strings,  and  symbolic  atoms.  A  symbolic  atom 
is  simply  an  object  on  the  oblist,  which  is  the  1  symbol 
table'  for  Navlisp.  Note  that  ’oblist’  is  a  slightly 
misleading  use  of  the  word  as  not  all  objects  are  on 
the  oblist  (e.g.  numbers  and  strings). 


?.  Input  conventions 

Navlisp 's  prompt  is  a  curly  brace  The  interpreter  reads  an 
S-expression  from  the  standard  input,  and  evaluates  it,  and 
writes  the  result  on  the  standard  output.  For  convenience,  the 
user  may  indicate  the  end  of  an  S-expression  with  a  closing  curly 
brace  M '  which  will  be  expanded  automatically  to  close  all  open 
gub-S-expressions .  Navlisp  also  implements  the  square-bracket 
convention  from  Interlisp:  a  right  square  bracket  ']'  will  pro¬ 
duce  enough  right  parentheses  to  natch  the  most  recent  left 
square  bracket  ' . 
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i  'iefun  f  (pi'  (cond  [(null  pi)  (foo  (bar  nil] 

(foo  (car  pi | 

is  equivalent  to 

j  (defun  f  (pi)  (cond  ((null  pi)  (foo  (bar  nil))  ) 

(T  (foo  (car  ol))  ) 

) 


To  imbed  arbitrary  characters  in  strings  and  names  follow  the 
UNIX  convention:  the  back-slant  character  inhibits  interpretation 
of  the  immediately  following  character.  There  are  two  exceptions: 
'\n'  is  the  new-line  character,  and  *\t '  is  the  tab  character, 
the  null  character  * \0  *  may  not  be  imbedded  in  Navlisp  strings  or 
names.  For  example,  ab\  cd  would  imbed  a  blank  in  the  name  "ab 
cd".  Non-printable  characters  can  also  be  imbedded  in  names,  so 
use  with  caution. 

Use  the  above  convention  also  to  put  non-printable  or  con¬ 
trol  characters  in  strings  (a  more  likely  necessity) .  In  addi¬ 
tion,  to  give  the  user  full  access  to  the  control  characters , ^the 
up-arrow  escape  convention  is  used.  For  example,  '\t'  =  ,AI', 
and  '\n'  =  '  AJ’ .  (The  up-arrow  convention  is  used  when  printing 
control  characters  in  strings  printed  with  print  or  printf . )  The 
up-arrow  is  escaped  with  the  backslant. 

(  (printf  "ab\ncd"  GR) 

ab 

cd 


j  (print  "ab\ncd"  CR) 
"ab  Jed" 


{  (printf  "The  length  of  AJ  is  " 

(stringlength  "AJ")  CR)  ;  non-printable 
The  length  of 
is  1 


{  (print  "The  length  of  \AJ  is 
(stringlength  "\AJ")  CR) 
The  length  of  AJ  is  2 


4.  Error  messages 

Error  messages  in  Navlisp  are  of  the  form 
object  cName:  *  Message  * 
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where  .Vase  is  a  ■mnemonic  indicating  when®  the  errcr  was 
discovered.  .Most  often  Maine  will  be  the  function  that  ietects 
the  error.  Qccassionally  it  will  be  the  name  of  an  internal  (to 
the  interpreter)  function.  The  message  will  indicate  what  the 
problem  was  and  hopefully  give  enough  information  that  the  prob¬ 
lem  can  be  corrected.  The  character  prefix  to  Name  differen¬ 
tiates  the  various  messages  within  a  function.  If  an  object  can 
be  printed  that  would  be  helpful  it  is  displayed  before  the  mes¬ 
sage  proper. 

Messages  that  begin  "Sys  err:"  are  just  that  and  should 
(ideally)  never  occur.  However,  if  one  does  occur,  please  note 
the  circumstances  and  report  them. 


5*  Alphabetic  listing  of  Navlisp  objects  and  functions 

Each  of  the  following  entries  is  in  the  format: 

name  type  (syntax)  =>  returned  type  or  value 

where  type  is  usually  SUER,  FSUBR,  LSUER,  system  symbol,  or  one 
of  a  few  other  miscellaneous  types.  Square  brackets  indicate 
optional  items  and  should  not  be  confused  with  the  square  bracket 
input  convention  described  above.  Numbers  appended  to  names  are 
for  identification  purposes  only. 

'  input  convention 

The  single  quote  is  used  as  an  input  convention  for  the 
quote  function  (q.v.). 

*  I£UER  (*  exp  exp  ...)  =>  number 

Returns  the  products  of  the  expressions.  Times  is  a 
synonym. 

+  ISUER  (+  exp  exp  ...)  =>  number 

Returns  the  sum  of  the  exp's.  Plus  is  a  synonym. 

-  ISUBR  (-  expl  exp2  exp3  . ••)  ->  number 

Returns  expl  minus  exp2  minus  exp3  . . .  .  Difference  is 
a  synonym. 

.  system  symbol 

Used  in  input  and  output  to  indicate  that  the  cdr  of  a 
cell  is  not  a  list  but  an  atom.  Care  should  be  taken 
to  always  surround  the  dot  of  a  dotted  pair  with  blanks 
as  it  is  legal  to  imbed  dots  in  names  and  numbers. 
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*  'cons  'x  ’y' 
x  .  y) 

i  (cons  'x  '(y)) 

(x  y) 

{  (cdr  ' (x.y) ) 
nil 

{  (cdr  ’(x  .  y'O 
7 

{  (setq  x.y  ’something) 
something 

{  (setq  x  .  y  ’something) 

’  aRead:  *  ’)’  expected  at  end  of  dotted  pair’s  cdr  * 


I  x.y 
something 

'  TRUER  (/  expl  exp2  exp3  •••  expn)  =>  number 

Returns  ( . . . ( (expl /exp2)/exp3) • • • )/expn  .  Quotient  is 
a  synonym. 

<  LSUER  ( <  expl  exp2  exp3  . . • )  =>  boolean 

Returns  T  if  expl  <  exp2  <  exp3  . • •  •  Lessp  is  a 

synonym. 

=  SUER  (=  object  1  object2)  =>  boolean 

If  objectl  and  object2  have  the  same  values,  then  equal 
returns  T,  otherwise  nil.  Equal  is  a  synonym. 


>  LoUBR  ( >  expl  exp2  exp3  • • • )  =>  boolean 

Returns  T  if  expl  >  exp2  >  exp3  ...  .  G-reaterp  is  a 
synonym. 

0,1,2,...  SUER  (integer  list)  =>  object 

Returns  the  nth  element  of  the  list.  That  is 

(1  ’ (a  b  c))  —  (car  list)  =>  a 

(2  ’(a  b  c))  **  (cadr  list)  =>  b 

(3  ’(a  b  c))  —  (caddr  list)  =>  c 

(4  ’(ab  c))  =>  nil,  as  does  5,  6,  etc. 

(0  1 (a  b  c) )  =>  (a  b  c) 

(-1  ’fabc))  =>  (a  b  c)  so  do  negative  numbers 

It  is  not  an  error  to  apply  the  nth  function  to  nil,  as 
it  will  only  return  nil.  However,  it  is  still  an  error 
to  take  the  car  or  cdr  of  an  atom  other  than  nil. 
(TRACE  INTEGERS)  will  trace  all  of  the  integer  func¬ 
tions:  integer  functions  cannot  be  traced  individually 
(e.g.  (TRACE  1)  will  not  work).  Also  note  the 
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io__owing: 

{  ( setq  n  1 ) 

1 

i  (n  '  (a  b  c  ) ) 

n  ilr.terpreter :  *  Unknown  function  in  eval  * 

i  ( x eval  n  a  ^  3 
a 

abs  SUER  ’ aba  ex?)  =>  number 

Returns  the  absolute  value  of  the  numeric  expression 
exp. 

addl  SUER  'addl  exp)  =>  number 

Adds  one  to  the  value  of  the  numeric  expression  exp. 

alphalessp  SUER  (alphalessp  stringl  stri.og2N  =>  boolean 

Returns  T  if,  in  a  character  by  character  comparison 
using  the  ASCII  collating  sequence,  stringl  is  strictly 
less  than  string2.  Shorter  strings  are  less  than 
longer  strings,  all  else  being  equal. 

and  ESUER  (and  objectl  object2  ...  )  =>  object 

Ihe  objects  are  evaluated  from  left  to  right  -until  one 
evaluates  to  nil.  Evaluation  is  discontinued  at  that 
point  and  nil  is  returned.  If  none  of  the  objects 
evaluate  to  nil,  then  the  value  of  the  last  object 
evaluated  is  returned  as  the  value  of  and. 

append  1SU3R  (append  list  list  . . . )  =>  list 

Creates  a  new  list  that  has  all  the  elements  of  the 
argument  lists  as  members.  This  is  distinguished  from 
the  nconc  function  in  that  a  new  list  is  created  and 
the  argument  lists  are  not  changed. 

{  (append  '(a  b  c)  ’ (d  e)) 

(abode) 

(  (setq  x  ' (a  b) ) 

(a  b) 

j  (eq  (append  x  '  (d  e))  x) 
nil 

i  (eq  (nconc  x  '(d  e))  x) 


apply  1SUER  (apply  fen  args  [alist])  =>  object 

The  function  fen  is  applied  to  the  arguments  args  in 
the  context/environment  alist,  if  specified. 


!  .apply  'cons  ’'a 
(a  .  b) 


ascii  3UER  (ascii  integer)  =>  string 

Returns  a  3tring  consisting  of  the  single  character 
corresponding  to  the  integer  parameter.  E.g.  (ascii 
10)  returns  a  string  consisting  of  a  carriage-return. 

assoc  SURE  (assoc  object  alist)  =>  lotted  pair 

Returns  the  dotted  pair  whose  car  is  the  object  and 
whose  car  is  the  value  associated  with  that  object.  If 
no  such  object  is  on  the  alist,  assoc  returns  nil. 
Uses  equal  for  the  equality  comparison  on  the  associa¬ 
tion  list. 

assq  SUER  (aasq  object  alist)  =>  dotted  pair 

Returns  the  dotted  pair  whose  car  is  the  object  and 
whose  cdr  is  the  value  associated  with  that  object.  If 
no  such  object  is  on  the  alist,  assq  returns  nil.  Uses 
eq  for  the  equality  comparison  on  tne  association  list. 

atom  SUSR  (atom  object)  =>  boolean 

Returns  T  if  object  is  an  atom.  There  are  several 
kinds  of  atoms  to  be  distinguished: 

integer  16-bit,  two’s  complement 

reals  32-bits;  corresponds  to  C’s  float 

string  a  variable  length  concatenation  of  characters 

symbol  anything  on  the  oblist,  including  nil 

boundp  SUBR  (boundp  symbol)  =>  boolean 

Returns  T  if  symbol  is  in  the  current  environment.  If 
symbol  is  not  on  the  current  alist,  then  if  it  has  a 
VALUE  attribute/property,  boundp  returns  T.  Otherwise, 
boundp  returns  nil.  Note  that  if  the  VALUE  of  the  sym¬ 
bol  is  nil,  that  is  considered  unbound. 

|  (setq  x  nil) 
nil 

{  (boundp  ’x) 
nil 

{  (let  ((x  nil))  (boundp  ’x)) 


break  system  symbol 

Used  in  cond  (a.v.)  to  implement  Parnas'  it-ti  con¬ 
struct  . 


_Q_ 


eye 


CADES 


edr 


chair 


cond 


SUSP,  eve'  =>  nothing 

Che  workspace  is  saved  and  the  process  is  exited, 
returning  the  user  to  the  process  that  invoked  Ilavlisp. 

system  symbol 

A  property  name  that  indicates  this  symbol  is  an 
extended  c*r;  e.g.  cadr,  caddr,  edadadadddaar ,  etc. 
There  can  be  up  to  *6  i's  and  a's  in  between  the  c  and 
the  r.  Che  value  of  the  CADES  attribute  is  a  binary- 
encoding  of  the  i  and  a  sequence. 

SUER  (car  (objectl  .  object2))  =>  objectl 
Equivalent  to  first.  Returns  the  first  element  of  the 
list.  If  the  argument  is  not  a  list,  car  reports  an 
error,  (car  nil)  is  currently  an  error,  although  there 
is  seme  debate  as  to  whether  it  should  simply  return 
nil  (see  the  integer  functions  0,  1,2,  etc.). 

SUER  (edr  (objectl  .  object2))  =>  object2 
Equivalent  to  rest.  Returns  all  but  the  first  element 
of  the  list.  Tf  the  parameter  is  not  a  list,  car 
reports  an  error,  (edr  nil)  is  currently  an  error, 
although  there  is  some  debate  as  to  whether  it  should 
simply  return  nil  (see  the  integer  functions  0,  1 ,  2, 

etc . } . 

SUER  (chdir  dirname)  =>  boolean 

A  Ub— {-specific  command  that  changes  the  default  direc¬ 
tory.  Dirname  must  evaluate  to  a  string.  Chdir 
returns  C  if  the  command  was  successfully  executed,  and 
nil  otherwise.  Che  directory  name  must  be  less  than 
256  characters. 

ESUER  (cond  (pi  si)  (p2  s2)  ...)  =>  object 
Ilavlisp 's  conditional  expression  evaluation  function. 
Che  pi's  are  predicate  expressions  evaluating  to  a 
boolean  value.  The  si's  are  sequences  of  S- 
expressions.  The  cond  in  Navlisp  is  a  partial  imple¬ 
mentation  of  David  Pamas'  it-ti  construct,  an  exten¬ 
sion  to  the  normal  LISP  cond.  The  pi  are  evaluated 
until  one  evaluates  to  a  non-nil  value.  The  si  associ¬ 
ated  with  this  non-nil  pi  are  evaluated  in  a  left  to 
right  order.  The  last  element  of  the  si  list  is  one  of 
the  keywords  break  or  repeat  (if  neither  is  present, 
break  is  assumed )".  The  former  exits  the  cond  command, 
the "latter  repeats  it. 
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cons 


CR 


DEEUGGC 


defun 


{  ( let  ((i  0 }  5  _ 

(cond  ((lessp  i  5)  (printf  i  "  " ) 

(setq  1  (addl  i)) 
reneat 
)  ‘ 

(?  (terpri’'  break' 

\ 

C  ‘  2  3  4 
nil 

SUER  (cons  objectl  object2)  =>  list  (or  dotted  pair'' 
Constructs  a  ’dotted  pair’  whose  car  is  ob;ect1  and 
whose  cdr  i3  object2.  The  following  identities  hold: 

(eq  (car  (cons  x  y))  x)  =>  T 

(eq  (cdr  (cons  xy))  y'  =>  T 

(cons  ’a  ’b)  =>  (a  .  b) 

(cons  ’a  (cons  ’b  (cons  ’c  nil)')  =>  (a  b  c) 

(cons  'a  ’(b  c  d  e  f')  =>  (a  b  c  1  e  f) 

system  symbol 

This  symbol  has  a  VALUE  property  whose  value  is  a  new- 
line  character.  Note  that  the  VALUE  for  this  symbol  is 
not  a  string  consisting  of  the  single  character,  new- 
line,  but  is  rather  another  symbol  whose  PNAME  is  a 
new-line  character.  This  allows  CR  to  be  used  by  all 
the  print  functions  and  still  serve  as  a  new-line  char¬ 
acter.  Otherwise,  if  the  VALUE  were  a  single  character 
string,  the  results  would  not  be  pleasing: 

{  (print  "stringl ”  CR  "string2"  CR) 

"stringl "  "V"  "string2"  "AJ"  "M" 

when  what  we  really  want  is 

f  (print  "stringl”  CR  "string2"  CR) 

"stringl " 

"string2" 

SUER  (DEBUGGC)  =>  boolean 

Primarily  for  the  developer's  use,  this  causes  a  gar¬ 
bage  collection  each  time  a  cell  is  allocated  from  the 
free  list.  If  you  really  want  to  slow  your  program 
down  ... 

FSUER  (defun  [type]  fcnname  ([parlist])  body)  => 

fcnname 

ESUER  (defun  fcnname  [type]  ([parlist])  body)  => 

fcnname 

Defines  a  lambda  expression  with  the  name  fcnname;  type 
must  be  one  of  SXPR,  FEXPR,  or  LEXER,  with  EXPR  tne 
default.  If  type  is  FEXPR  or  LEXER  then  the  parameter 
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list  shculi  have  only  one  f ormal  parameter.  Any  previ¬ 
ously  existing  7ZXPR,  IZiPF. ,  or  ZX2R  properties  on 
fcnname ' s  plist  are  removed  before  the  new  one  is 
added. 

delete  L3U3R  (delete  object  list  [integer])  =>  list 

A  very  bizarre  function  from  Maclisp:  it  returns  a  list 
with  all  objects  equal  to  object  deleted.  'If  the 
integer  is  present,  then  only  the  first  n  objects  are 
deleted.;  As  a  side  effect,  it  also  removes  all 
objects  equal  to  object  from  the  original  list  unless 
the  object  is  the  first  in  the  list,  in  which  case  the 
first  occurence  of  object  is  not  removed  from  the  ori¬ 
ginal  list.  Some  examples  will  help  clear  this  up: 

{  (setq  x  ’(abacabadacabad)) 

(abacabadacabad) 

i  (delete  ’a  x  5) 

(bcbdcaba  i) 

i  x 

(a  bcbdcaba  d)  ;  note  the  first  a 
Note  that  delete  uses  equal  for  its  equality  test. 

delq  LSUBR  (dela  object  list  [integer])  =>  list 

Same  as  delete  but  uses  ea  for  its  equality  test. 

difference  L3UER  (difference  expl  exp2  exp3  •  ••)  =>  number 

Returns  (expl  -  exp2  -  exp3  -  ...).  is  a  synonym. 
It  is  equivalent  to  (-  (+  expl  exp2  ...)). 

divert  LSUER  (divert  which  name  [string]) 

which  Must  evaluate  to  one  of  the  atoms  input, 
output ,  or  append .  If  append  is  used, 
•She* output  is  diverted  and  *  appended  to 
the  end  of  the  named  file. 

name  Evaluates  to  a  symbolic  atom  whose  value 
will  be  UNIX's  file  descriptor. 

string  An  optional  expression  that  evaluates  to 
a  string  that  is  the  UNIX  recognized 
file  name.  If  no  string  is  specified, 
the  PITAME  of  name  is  ’used  as  the  file 
name. 

{  (divert  'input  'inf  "in. file") 

This  example  diverts  the  input  from  the  current  input 
file  to  ./in. file  (the  UNIX  name),  but  which  will  be 


else 


EOF 


eq 


equal 


referenced  in  Navlisp  via  the  atom  inf, 
j  (divert  ’input  ’in. file) 

This  example  is  the  3ame  as  the  previous,  except  that 
the  atom  in. file  is  the  atom  by  which  the  file  i3 
referenced  within  Navlisp,  and  whose  PNAME  will  also  be 
the  'JITIX-recognized  file  name. 


system  3ymbol 

A  ’pretty’  symbol  that  is  optional  in  a  cond.  It  helps 
to  make  the  code  more  visible  and  is  ignored: 

(cond  ((eq  x  y)  then  (fen  ..)  (fen  ...)  ) 
else  ((eq  x  z)  then  (fen  ..)  (fen  ...)  ) 
else 

) 


system  symbol 

A  special  object  that  is  returned  by  I/O  routines  when 
end-of-file  is  reached. 


SUER  (eq  objectl  object2)  =>  boolean 
If  objectl  and  object2  are  identically  the  same  (not 
the  same  value,  but  the  same  object)  then  eq  returns  T, 
otherwise  nil.  Note  the  following: 


(eq  ’x  ’x)  =>  T 

(eq  ’(x  y)  ’(x  y))  =>  nil 

(eq  (cons  'x  ’y)  (cons  'x  ’y))  =>  nil 

(setq  x  ’ (a  b) ) 

(setq  y  x) 

(eq  x  x)  =>  T 

(eq  x  y)  =>  T 

(setq  y  '(a  b)) 

(eq  x  y)  =>  nil 


SUER  (equal  objectl  object2)  =>  boolean 

If  objectl  and  object2  have  the  same  values,  then  equal 

returns  T,  otherwise  nil.  ’=’  is  a  synonym. 


(equal  ’x  ’x) 

(equal  ’(x  y)  ’(x  y)) 

(equal  (cons  ’x  ’y)  (cons  ’x  ’y)) 
(setq  x  ’(a  b)) 

(setq  y  x) 

(equal  x  x) 

(equal  x  y) 

(setq  y  ’(a  b)) 

(equal  x  y) 

(equal  11  11 .0) 

(equal  (+5  6)  11) 

(equal  "str”  (implode  ’("3’’  "t"  "r" 


m 

T 

m 


T 


m 
" 1 
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error 


eval 


exec 


execq 


explode 


LEUEP.  'error  object  atom  ...  atom)  =>  nothing 
The  mechanism  by  which  the  user  can  generate  error  mes¬ 
sages.  The  first  object  is  printed  with  a  Navlisp 
error  message.  This  allows  the  user  to  print  an  error 
message  with,  perhaps,  the  offending  value  or  expres¬ 
sion.  Error  uses  prints  to  print  the  object  and  printf 
to  print  the  sequence  of  atoms.  E.g. 

i  (seta  badlist  '(ab)) 

(a  b) 


(  (error  badlist  "Pretty  bad  list:  "  'badlist  UR) 

Pretty  bad  list:  badlist 

(a  b)  aUser:  *  User  generated  error  * 

LSUER  (eval  S-expr  [alist])  =>  object 
This  is  the  universal  function:  the  function  that  can 
evaluate  all  other  functions,  even  itself.  The  S-expr 
is  evaluated  in  the  context  of  the  environment  speci¬ 
fied  by  alist.  If  alist  is  absent,  the  S-expr  is 
evaluated  in  the  current  context /environment. 

{  (setq  x  1  y  2  z  3) 

3 

|  (setq  alist  ' ( (x  .  5)  (y  •  7)  (z  .  8) ) ) 

((x  .  5)  (y  *  7)  (z  .  8)) 

{  (eval  '(plus  x  y  z)) 

6 

J  (eval  '(plus  x  y  z)  alist) 

20 

FSUER  (exec  objectl  object2  ...  )  =>  integer 
The  objects  in  the  parameter  list  (which  must  evaluate 
to  atoms)  are  converted  into  strings  and  concatenated 
with  separating  blanks.  The  resulting  string  is  then 
passed  to  the  UNIX  shell  for  execution  as  a  separate 
process.  Exec  returns  the  status.  E.g.: 

(exec  'vi  'file) 

(exec  'Is  ’-1  ' |  'page) 

I*3UER  (execq  atoml  atom2  ...  )  =>  integer 

The  same  as  exec  except  the  parameters  are  not 

evaluated  before  being  converted  into  strings.  E.g.: 

(execq  vi  file)  same  as  for  exec 

(execq  Is  -1  ]  page) 

SUER  (explode  atom)  =>  list 

Returns  a  list  of  single-character  strings  that  are  the 


individual  characters  in  the  string  returned  by  .string 
atom).  Inverse  of  implode:  (implode  ^ explode  atom)! 
yields  (string  atomTT" 

system  symbol 

A  symbol  property  specifying  that  this  symbol  has  a 
user  defined  S-expression  to  be  evaluated  when  the  sym¬ 
bol  appears  as  the  first  element  of  a  list.  The  argu¬ 
ments  to  an  ZXPR  function  are  evaluated  before  they  are 
passed  to  the  function  for  processing.  I.g. 


(defun  f  (fx  fy  fz)  ( 
(setq  x  1  y  2  z  3) 
(f  x  y  z) 


body  . . . ) ) 


will  pass  to  f  the  individual  arguments  1,2,  and  3* 
System  symbol 

An  equivalent  symbol  for  nil;  false. 

L3UER  (fclose  [name  ...  ])  =>  1 

Closes  all  or  selected  files.  If  no  names  are  given 
then  all  files  but  the  standard  input  and  standard  out¬ 
put  files  are  closed. 

system  symbol 

A  symbol  property  specifying  that  this  symbol  has  a 
user  defined  S-expression  to  be  evaluated  when  the  sym¬ 
bol  appears  as  the  first  element  of  a  list.  The  argu¬ 
ments  to  an  FEXPR  function  are  not  evaluated  before 
they  are  passed  to  the  function  for  processing.  An 
FEXPR  function  does  not  receive  the  individual  argu¬ 
ments,  but  rather  a  list  of  the  arguments.  An  FEXPR 
function  can,  therefore,  have  a  variable  number  of 
arguments.  Assume  f  is  an  FEXPR  function.  Then 

(f  x  y  z) 

will  be  invoked  with  a  single  argument 
(x  y  z) 

FEXPRs  are  defined  by,  e.g. 

(defun  FEXPR  fcnname  (parm)  (  ...  body  ...  )) 
system  symbol 

A  property  symbol  whose  value  is  the  UNIX  file  descrip¬ 
tor.  Symbols  with  this  property  may  be  used  as  the 
first  argument  to  fprint,  fprintf,  f reads,  etc. 

SUER  (first  ( object 1  .  object2))  =>  objectl 
Equivalent  to  car.  Returns  the  first  element  of  the 
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list.  If  the  parameter  is  net  a  list,  first  reports  an 
error,  (first  nil)  is  currently  an  error,  although 
there  is  some  debate  as  to  whether  it  should  simply 
return  nil. 

fopen  1SUER  (fopen  mode  name  [string])  =>  integer 
Opens  a  UNIX  file,  where: 

mode  Evaluates  to  one  of  the  symbolic  atoms 
input,  output ,  or  append . 

name  Evaluates  to  a  symbolic  atom  whose  value 
will  be  the  file  descriptor  used  by  the 
UNIX  file  system. 

string  An  optional  expression  that  evaluates  to 
a  string  that  is  the  UNIX  file  name.  If 
no  string  is  specified,  the  PNAME  of  the 
second  argument  is  used  as  the  file 
name.  The  filename  must  be  less  than 
256  characters  long. 

fprint  LSUBR  (fprint  name  object  object  ...)  =>  object 

The  objects  are  written  onto  the  file  denoted  by  the 
symbolic  atom  name,  which  will  have  been  the  second 
argument  to  an  earlier  fopen.  This  function  prints 
atoms  and  non-atoms.  Strings  are  printed  with  the  dou¬ 
ble  quotes,  and  each  object  is  separated  from  its 
neighbors  by  blanks.  The  last  object  printed  is 
returned  as  the  value  of  fprint.  (cf.  print,  printf, 
fprintf ) 

fprintf  LSUBR  (fprintf  name  atom  atom  . . . )  =>  atom 

The  atoms  are  written  onto  the  file  denoted  by  the  sym¬ 
bolic  atom  name,  which  will  have  been  the  second  argu¬ 
ment  to  an  earlier  fopen.  This  function  prints  only 
atoms.  Strings  are  printed  without  the  double  quotes, 
and  each  object  is  printed  adjacent  to  its  neighbors. 
The  last  atom  printed  is  returned  as  the  value  of 
fprintf.  (cf.  print,  printf,  fprint) 

freada  SUER  (freada  name)  =>  atom 

Returns  as  its  value  a  single  atom  read  from  the  file 
name,  which  was  the  second  parameter  to  an  fopen.  (cf. 
reada) 

freadc  SUBR  (freadc  name)  =>  string 

The  value  of  this  expression  is  a  one  character  string 
read  from  the  file  denoted  by  name.  The  function 
returns  the  atomic  symbol  EOF  when  end  of  file  is 
reached .  (cf.  readc) 
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f reads 

TRUER 


fterpri 

funarg 

function 


RUHR  '  f reads  name)  =>  object 

Reads  an  3-expr  from  the  file  denoted  by  name,  the 
value  of  which  is  set  in  the  second  parameter  to  fopen. 
(cf.  reads) 

system  symbol 

A  property  of  symbols  that  are  'lavlisp  primitives. 
TRUER  functions  expect  one  argument:  a  list  of  the 
unevaluated  arguments.  Assume  that  f  is  an  TRUER  prim¬ 
itive.  Then 

(f  x  y  z) 

will  invoke  f  with  the  single  argument 
(x  y  z) 

RUHR  (fterpri  name)  =>  CR 

Prints  a  new-line  character  on  the  specified  file 
Equivalent  to  (fprintf  name  CR) .  name. 

system  symbol 

See  the  entry  for  function  below  for  an  explanation. 

TRUER  (function  fen)  =>  (funarg  fen  alist) 

There  is  a  'problem'  in  LISP  that  Navlisp  shares:  LIS? 
is  a  dynamically  scoped  language,  as  opposed  to  a  lexi¬ 
cally  scoped  language.  This  means  that  the  free  vari¬ 
ables  in  a  function  definition  are  not  'bound'  until 
the  function  is  being  evaluated.  This  may  or  may  not 
have  been  what  the  programmer  had  in  mind.  An  admit¬ 
tedly  contrived  example: 

|  (setq  pi  3.14159) 

|  (defun  perimeter  (radius) 

(times  2  (times  radius  pi))) 

;  later 

{  (defun  hexagon  (radius) 

(let  ((pi  3)) 

(printf  "perimeter  of  hexagon  is  =" 
(times  2  (times  pi  radius))  CR) 
(printf  "perimeter  of  outer  circle  is=" 

^  (perimeter  radius)  CR) 

{  (perimeter  4) 

25.1327 

|  (hexagon  4) 

perimeter  of  hexagon  is  =24 
perimeter  of  outer  circle  is=24 

Let  us  assume  that  the  programmer's  intention  for 
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perimeter  was  Pc  calculate  Pee  circumference  cf  cne 
circle  in  which  a  polygon  of  a  certain  radius  is 
inscribed.  However,  it  is  also  necessary  to  calculate 
the  circumference  of  the  polygon  using  its  own  value  of 
"ratio  of  perimeter  to  diameter"  (for  hexagons  it  is 
three).  If  the  programmer  insists  on  calling  both 
values  'pi',  contusion  will  result,  especially  if  Phis 
is  buried  in  a  large  program  and  not  so  obvious  as  in 
this  small  example.  The  problem  arose  when  the  program¬ 
mer  thought  'lexical  scoping'  ( "this  function  will  use 
the  global  variable/constant")  in  a  dynamically  scoped 
language  (which  will  use  the  latest  definition  of  an 
object) . 

The  solution  implemented  in  most  LISP  systems  is 
to  provide  a  function  which  tags  other  functions  with 
the  environment  in  which  they  are  to  be  evaluated:  the 
third  element  in  the  funarg  list  described  above.  The 
funarg  symbol  at  the  head  of  the  list  is  LISP's  way  of 
flagging  such  a  construct  to  the  interpreter.  3y  this 
method,  the  above  problem  would  be  solved  by: 

|  (defun  auxper  (radius) 

(times  2  (times  radius  pi))) 

{  (defun  perimeter  (radius) 

((funarg  auxper  nil)  radius)) 

This  is  not  very  satisfying  or  transparent,  and  an 
enhancement  is  being  considered  to  either  develop  a 
lexically  scoped  LISP,  or  allow  a  switch  in  llavlisp 
which  will  toggle  between  dynamic  and  lexical  scoping. 

SUBR  (gc)  =>  (geent  chpair  intpair  realpair  listpair 
bufpair  hwm) 

Forces  a  garbage  collection  and  returns  as  its  value  a 
report  on  space  usage: 

geent  the  number  of  garbage  collections  since 
startup 

chpair,  intpair,  realpair,  listpair  are  lists  of  the 
form  (free  max)  where  free  is  the  number  of 
cells  of  that  type  that  is  free,  and  max  is 
the  maximum  available;  note  that  this  is  the 
number  of  cells,  not  the  number  of  bytes. 
There  are  four  bytes  per  character/string 
cell,  two  per  integer  cell,  four  per  real 
cell,  and  four  bytes  per  list  cell. 

bufpair  file  buffers  are  allocated  on  an  as  needed 
basis;  this  pair  of  the  form  (free  alloc) 
specifies  the  number  of  buffers  allocated  and 
not  in  use  and  the  total  number  of  buffers 


file  open;  J  1 )  says  there  are  no  fixes 
open  with  one  buffer  allocated. 

hwm  the  high  water  mark,  cr  highest  address  in 

use;  for  addresses  greater  than  32767  you 
will  have  to  do  ten's  complement  arithmetic 
to  figure  it  out  as  it  will  print  as  a  nega¬ 
tive  number. 

See  MEMORY  for  an  example  of  use. 

SUER  (gctwa)  =>  integer 

Removes  all  'truly  worthless  atoms'  from  the  object 
list.  A  'truly  worthless  atom'  is  defined  to  be  one 
which  has  no  properties  (other  than  PNAME) ,  and  is  not 
referenced  by  any  other  object  in  the  system.  It 
returns  the  number  of  atoms  so  removed. 

SUER  (get  symboll  symbol2)  =>  object 
Searches  the  property  list  (plist)  of  symboll  looking 
for  a  property  whose  name  is  symbol2.  If  symbol2  is 
found  on  the  plist,  the  value  associated  'with  that 
attribute  of  symboll  is  returned.  Both  parameters  must 
be  atomic  symbols  (i.e.  on  the  oblist)  or  nil  is 
returned.  If  symboll  does  not  have  a  plist,  or  if  sym¬ 
bol!  is  not  on  symboll 's  plist,  then  nil  is  returned. 

the  form  of  a  plist  for  a  symbol  is 

(-1  attrl  vail  attr2  val2  attr3  val3  ...  ) 
therefore 

(get  symbol  attri)  =>  vali 

LSUER  (getfun  fname  [string])  =>  object 
If  the  file  string  (or  the  print  name  of  fname,  if 
string  is  not  given)  is  not  open  it  is  openeD  An  S- 
expr  is  read  and  evaluated,  and  the  result  is  returned. 
If  the  expression  is  a  defun  the  function  will  then  be 
defined  as  a  side  effect .  The  symbol  SOP  is  returned 
at  end  of  file  (be  careful  of  other  S-expressions  that 
may  return  the  symbol  SOP  when  evaluated ! ; .  Note  that 
the  input  file  is  not  closed  by  getfun.  Therefore,  the 
next  call  on  getfun  'will  read  the  next  S-expression 
from  the  file .  Such  a  file  of  personal  function  defin¬ 
itions  can  then  be  read  with 
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get  pname 


greaterp 


implode 


IGNEOF 


input 


EMEUS 


intp 


'  defun  LEXER  getall  (x) 

;let  ((tempi  (fd  (1  x')  (str  (2  x))) 

(cond  ((eq  (setq  temp  (get fun  fd  str))  POP) 

(f close  fd)  (terpri) 
break) 

(T  (cond  ((atom  temp)  (printf  temp  "  ")) 
(T  (print  CR  temp  CR)); 

reseat ) 

'i 

) 

If  the  evaluated  S-expr  reads  from  the  standard  input 
during  its  evaluation,  the  input  will  come  from  the 
same  file  fname,  and  not  the  current  stdin. 

SUER  (get_pname  symbol)  =>  string 

Returns  the  print  name  of  symbol,  which  must  be  an 
object  on  the  oblist.  Note  that  is  the  underscore 
character  on  most  terminals,  but  may  be  a  back-arrow  on 
some. 

LSUER  (greaterp  expl  exp2  exp3  . ..)  =>  boolean 
Returns  T  if  expl  >  exp2  >  exp3  •••  •  ’>'  is  a 

synonym. 

SUER  (implode  (atoml  atom2  . ..))  =>  string 
Returns  a  string  that  is  the  result  of  concatenating 
the  values  of  (string  atomi)  for  each  atom  i  in  the 
argument.  It  is  the  inverse  of  explode,  with  the  addi¬ 
tional  capability  of  accepting  multi-character  strings 
in  the  parameter  list. 

SUER  (IGNEOF)  =>  boolean 

Normally,  an  end-of-file  on  the  standard  input  will  act 
as  if  the  (bye)  command  had  been  entered.  Toggling 
IGNEOF  will  change  this  to  simply  report  the  occurence 
of  an  end-of-file.  Note  that  control-D  from  the  key¬ 
board  is  equivalent  to  an  end-of-file. 

system  symbol 

Used  in  fopen,  divert,  and  undivert  to  indicate  that 
the  file  mode  is  for  reading. 

system  symbol 

Used  to  denote  the  integer  functions  to  the  TRACE  com¬ 
mand.  The  individual  functions  cannot  be  traced,  but 
(TRACE  INTEGERS)  will  report  each  use  of  any  integer 
function. 

SUER  (intp  object)  =>  boolean 

Returns  T  if  the  object  is  an  integer.  Note  that  if 
the  object  is  real  (e.g.  23*0)  it  is  not  considered  an 
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label 

lambda 

last 

length 

lessp 

let 


integer  even  if  its  fractional  tart  is  sere. 

RSUER  (it  (pi  si)  (p 2  32)  ...  ) 

An  equivalent  name  for  cond. 

PSUBR  (label  farm ame  S-expr)  =>  object 
Associates  fenname  with  the  S-expr  on  the  alist.  In 
this  wa y,  the  3-expr  can  reference  itself.  Usually  it 
is  better  just  to  use  defun  and  associate  fenname  with 
the  3-expr  globally. 

primitive  (lambda  (pi  p2  ...)  S-expr)  (argl  arg2  . ..) 
=>  object 

The  object  returned  is  the  value  obtained  by  evaluating 
S-expr  with  all  occurences  of  pi  replaced  with  the 
corresponding  argi. 

SUER  (last  list)  =>  list 

Returns  a  list  which  has  as  its  single  element  the  last 
element  of  the  argument  list. 

SUER  (length  list)  =>  integer 

Returns  the  number  of  elements  in  the  list. 

I  (length  '(a  b  (c  d))) 

3 

I£UER  ( lessp  expl  exp2  exp3  . • . )  =>  boolean 

Returns  T  if  expl  <  exp2  <  exp3  • • •  •  ' < '  is  a 

synonym. 


FSUER  (let  par-list  stmtl  stmt2  ...)  =>  object 
where  par-list  is  of  the  form 

((symboll  objectl )  (symbol2  object2)  . ..) 

All  objects  are  evaluated  in  the  current  environment. 
Then  the  symbols  are  associated  with  the  respective 
values  and  added  to  the  environment.  Then  the  state¬ 
ments  are  evaluated.  This  is  ITavlisp's  form  of  a  local 
block.  The  let  statement  returns  the  result  of  the 
last  evaluated  statement  as  its  value. 

{  (setq  x  '(aba)) 

(a  b  c) 

!  (let  ((x  '(d  e  f)))  (print  x  CR)) 

(d  e  f) 


x 

a  b  c) 
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LEXER  oysten  symbol 

A  symbol  property  specifying  that  this  symbol  has  a 
user  iefined  c-expression  to  be  evaluated  when  the  sym¬ 
bol  appears  as  the  first  element  of  a  list.  The  argu¬ 
ments  to  an  LEXPR  function  are  evaluated  before  they 
are  passed  to  the  function  for  processing.  An  LEXPR 
function  does  not  receive  the  individual  arguments,  but 
rather  a  list  of  the  arguments.  An  LEXPR  function  can, 
therefore,  have  a  variable  number  of  evaluated  argu¬ 
ments.  Assume  f  is  an  LEXPR  function.  Then 

(setq  x  1  y  2  z  3) 

(f  x  y  z) 

will  be  invoked  with  a  single  argument 
(12  3) 

LEXPRs  are  defined  by 

( defun  LEXPR  fcnname  { parm )  (  ...  body  ...  ) ) 
LOSE!  system  symbol 

whose  VALUE  is  the  currently  executing  command  stored 
as  a  list. 

list  LSUER  (list  object  object  ...)  =>  list 

Returns  a  new  list  containing  the  objects  as  its  ele¬ 
ments  : 

S  (setq  x  ' (a  b  c)) 

(a  b  c) 

I  (list  'x  x  '(d  e  f)  (plus  3  5)) 

(x  (a  be)  (d  e  f)  8) 

ISUER  system  symbol 

A  property  of  symbols  that  are  Navlisp  primitives. 
LSUBR  functions  expect  one  argument:  a  list  of  the 
evaluated  arguments.  If  f  is  an  LSUER  primitive.  Then 

(setq  x  1  y  2  z  3) 

(f  x  y  z) 

will  invoke  f  with  the  single  argument 
(1  2  3) 

mapear  ISUBR  (mapear  fen  listl  list2  ...  listn)  =>  list 

If  listi  =  (elil  eli2  eli3  •••  elim)  then  mapear 
returns 
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.ism 


(list  (fen  ell  1  e!21  ..  elnl ) 

(fen  ell 2  el22  ..  eln2) 

(fen  ellm  el2n  ..  elnm)  ) 

deviously,  fen  must  be  an  n-argumer.t  function.  If  the 
lengths  3f  the  lists  are  'unequal,  the  shortest  list 
ietertir.es  the  number  of  elements  in  the  returned  list 
(ana  therefore  the  number  of  evaluations  of  fen ) .  Ihe 
fen  used  in  mapear  should  probably  not  be  an  ESUER  or 
EEXPR  as  the  results  may  be  unexpected. 

max  L3U2R  (max  exp  exp  . . . )  =>  number 

Returns  the  value  of  the  expression  with  the  maximum 
value . 

member  SUER  (member  object  list)  =>  list 

If  the  object  is  in  the  list  then  the  remainder  of  the 
list  starting  with  object  is  returned.  If  the  object 
is  not  a  member  of  list,  then  nil  is  returned.  Note 
that  the  equality  comparison  is  made  by  equal. 

(member  ’x  '(a  b  m  r  x  z))  =>  (x  3) 

(member  'x  '(a  b  (x  z )  2))  =>  nil 

(member  ' (x  2)  '(a  (x  2)  b  2))  =>  ((x  z)  b  2) 

MEMORY  SUER  (MEMORY  integer!  integer2  integer 3  integer!)  => 
nothing 

Increases  the  memory  allocations  for  the  various  types 
of  memory  spaces.  Navlisp  memory  is  divided  into  char¬ 
acter  (or  string)  space,  integer  space,  real  number 
(floating  point)  space,  and  list  cell  space.  There  are 
actually  more  spaces  (file  buffer  space,  garbage  col¬ 
lection  space,  and  miscellaneous  space)  but  the  user 
does  not  have  control  over  these.  By  using  the  MEMORY 
command  the  user  can  increase  (see  SCRUNCH  for  decreas¬ 
ing)  the  amount  of  memory  available  for  characters, 
integers,  reals,  and  lists.  That  order  corresponds  to 
integerl  ,  integer2,  integer3,  and  integer4  in  the  com¬ 
mand  list.  The  integers  must  be  positive  and  small 
enough  to  not  overflow  memory.  MEMORY  does  not  return 
a  value:  it  does  not  return!  Calling  MEMORY  resets  the 
interpreter  to  prompting  at  the  command  level.  The 
following  example  should  help  make  this  clear: 

|  («e) 

(2  (224  500)  (93  200)  (100  100)  (3224  5000) 

(0  0)  27800) 

shows  that  two  garbage  collections  have  taken  place  so 
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characters  max  per  oel_  cut  ::  ;w,  ?;  ;ree  integer 
cells  out  of  200,  all  MO  real  number  cells  are  free, 
3224  list  cells  are  free  out  of  5000,  there  are  no  file 
buffers  allocated,  and  the  high  water  nark  in  memory  is 
27800.  'low  allocate  "’OOO  more  character  cells  allowing 
up  to  28GCO  bytes  of  character  storage: 


<4  77224  750C)  r 93  200)  (ICO  *00)  (3224  5000) 
0  0)  -9736) 

{  (MEMORY  1000  0  0  0) 
aAdjmem:  *  Insufficient  system  memory  * 


meaq  SUER  (memq  object  list)  =>  list 

Same  as  member  above  except  that  the  equality  compari¬ 
son  is  made  by  instead  of  equal ■ 

(memq  'x  '(a  b  m  r  x  z))  =>  (x  z) 

(memq  ’x  '(a  b  (x  z)  2))  =>  nil 

(memq  '(x  z)  '(a  (x  z)  b  2))  =>  nil 

mir.  ISUER  (min  exp  exp  exp  . ..)  =>  number 

Returns  the  minimum  value  of  the  expressions. 

minus  SUER  (minus  exp)  =>  -exp 
Negates  the  value  of  exp. 

minusp  SUER  (minusp  number)  =>  boolean 

Returns  7  if  the  number  is  less  than  zero  (negative). 

mkatom  SUER  (mkatom  string)  =>  symbol 

If  there  exists  an  object  on  the  oblist  whose  print 
name  is  string,  then  that  object  is  returned.  Other¬ 
wise,  a  new  object  with  the  name  string  is  added  to  the 
oblist.  Note  that  it  is  possible  to  define  objects 
this  way  that  are  very  difficult  to  access: 

i  (mkatom  "a  b") 
a  b 

j  (remob  "a  b") 

"a  b"  aRemob:  *  Not  a  symbolic  atom  * 

{  (remob  (mkatom  "a  b")) 


nconc  SUER  (nconc  listl  list2)  =>  listl 

List2  is  appended  to  listl  (via  rolacd )  and  the  new 
(modified)  listl  is  returned.  !!his  is  distinquished 
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neons 

nil 

not 

null 

numberp 

OELIST 


from  rhe  append  function  in  ~r.a~  nconc  2r.ar.ees  list'!  to 
produce  the  new  list. 

|  (append  '(a  b  c)  ' (d  e)) 

(abed  e) 

!  (seta  x  ' (a  b  c) ) 

(a  b  o'* 

{  ( eq  ( append  x  ’ ( d  e ) )  x) 
nil 

{  (eq  (nconc  x  * (d  e))  x) 

I  (nconc  x  x) 

(abcabcabc  ...  ) 

will  produce  a  circular  list  which  will  put  the  print 
routine  in  an  infinite  loop.  However, 

|  (append  x  x) 

(a  b  c  a  b  c) 

does  not. 

SUBR  (neons  object)  =>  list 
Equivalent  to  (cons  object  nil;. 

system  symbol 

The  empty  list,  sometimes  written  ().  Used  by  boolean 
functions  to  indicate  false.  Also  used  to  indicate  the 
end  of  a  list:  every  list  ends  with  an  empty  sub-list. 

SUER  (not  object)  =>  boo3.ean 

Negates  the  boolean  value  represented  by  the  object. 
Equivalent  to  the  null  function. 

SUER  (null  object)  =>  boolean 

Returns  T  if  the  parameter  is  nil,  otherwise  returns 
nil. 

SUER  (numberp  object)  =>  boolean 

Returns  T  if  the  object  is  an  integer  or  a  real. 

SUBR  (OELIST)  =>  oblist 

The  current  oblist  is  returned.  The  following  function 
will  display  each  object  on  the  oblist: 
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odd? 

or 

output 

pair 

plist 

plus 

plusp 

PITAME 

print 


'  .  -r,f-  '  -"VBT  ” 

-j  .  Jui  v  w Ju* - 

(eor.d  (  null  ptr )  break) 

(T  (print  (plist  (car  otr ) )  CR) 
(setq  utr  (cdr  ptr)} 
reoeat) 

) 

) 

3U3R  (odd?  number)  =>  boolean 

Returns  T  if  the  number  (or  its  integral  part''  is  odd; 
otherwise  returns  nil. 

RSUER  (or  objectl  object2  ...  )  =>  object 
The  objects  are  evaluated  from  left  to  right  until  one 
evaluates  to  something  other  than  T,  at  which  point 
evaluation  ceases  and  that  non-nil  value  is  returned. 
If  all  values  are  nil,  then  nil  is  returned. 

system  symbol 

Used  in  fopen,  divert,  and  undivert  to  indicate  that 
the  file  mode  is  for  ’writing. 

SURR  (pair  listl  list2)  =>  list3 

Each  element  of  listl  is  matched  up  with  each  element 
of  list2;  each  list  must  have  the  same  number  of  ele¬ 
ments.  Note  that  the  LIS?  1  .5  implementation  (and, 
therefore,  this  one)  reverses  the  order  of  the  lists. 

(  (oair  ’ (a  b  a)  ' (1  23)) 
l(o  .  3)  (b  .  2)  (a  .  ?)) 

STJBR  (plist  symbol)  =>  list 

Returns  the  plist  for  the  atomic  symbol  symbol.  If  the 
argument  is  not  an  atomic  symbol  an  error  results. 

LSUER  (plus  exp  exp  ...)  =>  number 

Returns  the  sum  of  the  exp's.  '  +  '  is  a  synonym. 

SUER  (plusp  number)  =>  boolean 

Returns  T  if  the  number  is  greater  than  zero,  otherwise 
returns  nil. 

system  symbol 

The  print  name  property  of  symbols. 

LSUBR  (print  object  object  ...)  =>  object 
The  objects  are  written  onto  the  standard  output 
separated  by  blanks  (there  is  no  blank  after  the  last 
object).  The  last  object  printed  is  returned  as  the 
value.  Note  that  string  atoms  are  surrounded  by  quotes 
when  using  print .  (cf .  printf,  fprint,  fprintf) 
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putprop 


QUIT 


quote 


quotient 


reada 


readc 


reads 


realp 


crir.Tdf  3.tom  sitcm  .  •  •  =  y 

The  atoms  vor  expressions  which  evaluate  to  atoms  are 
•written  on  the  standard  output.  The  atoms  are  not 
separated  by  blanks.  Strings  are  not  surrounded  by 
double  quotes.  The  last  atom  printed  is  returned  as 
the  value  of  printf .  (cf.  print,  fprint,  fprintf) 

SUBR  (putprop  symbol  value  prop'  =>  value 
The  property  prop  (which  should  be  a  symbolic  atom''  is 
added  to  the  plist  of  Pne  symbolic  atom  symbol  and  is 
given  the  value*  value ,  which  is  returned  as’  the  value 
of  putprop. 

SUBR  (QUIT)  =>  nothing 

Returns  the  user  to  the  process  that  invoked  Mavlisp 
(presumably  the  shell)  without  saving  the  workspace. 

FSUBR  (quote  object)  =>  object 

This  function  simply  returns  its  argument,  whatever  it 
may  be.  This  is  a  convenient  'way  to  delay  evaluation 
of  a  list  or  object.  For  convenience,  the  apostrophe 
is  used  as  a  shorthand  for  the  quote  function.  That 
is,  'a  is  equivalent  to  (quote  a);  and  '(a  b)  is 
equivalent  to  (quote  (a  b));  etc. 

(  (cons  (+  1  2)  5) 

b  ■  5) 

!  (cons  '  (+  1  2)  5) 

((+  1  2)  .  5) 

LSUER  (quotient  expl  exp2  exp3  •••)  =>  number 

Returns  (...  ((expl  /  exp2)  /  exp3)  ...  ).  '/'  is  a 

synonym. 

SUBR  (reada)  =>  atom 

Returns  as  its  value  a  single  atom  read  from  the  stan¬ 
dard  input.  The  function  returns  the  atomic  symbol  SOP 
when  end  of  file  is  reached,  (cf.  freada) 

SUBR  (readc)  =>  string 

The  value  of  this  expression  is  a  one  character  string 
read  from  the  standard  input  file.  The  function 
returns  the  atomic  symbol  EOF  when  end  of  file  is 
reached,  (cf.  f readc) 

SUBR  (reads)  =>  object 

The  value  of  this  expression  is  the  S-expression  read 
from  the  standard  input.  The  atomic  symbol  EOF  is 
returned  at  end  of  file.  (cf.  f reads) 

SUBR  (realp  object)  =>  boolean 

Returns  T  if  the  object  is  a  real  number;  otherwise 
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SUBR  (remainder  number 1  number2)  =>  integer 
Returns  numberl  modulo  number2.  If  the  numbers  are 
reals,  they  are  truncated  to  integers  before  the  opera¬ 
tion. 

SUBR  (remob  symbol)  =>  nil 

Removes  all  properties  (except  PRAMS)  for  the  symbolic 
atom  symbol  from  the  oblist.  Use  the  (gctwa)  function 
to  remove  these  ' truly  worthless  atoms ' . 

SUBR  (remprop  symbol  prop)  =>  list 

Removes  the  property  prop  from  the  plist  for  symbol. 
The  list  returned  is  the  rest  of  the  property  list, 
beginning  with  the  removed  prop. 

system  symbol 

Used  in  cond  (q.v.)  to  implement  Parnas'  it-ti  con¬ 
struct. 

SUER  (rest  (object!  .  object2))  =>  object2 
Equivalent  to  cdr.  Returns  all  but  the  first  element 
of  the  list.  If  the  parameter  is  not  a  list,  rest 
reports  an  error. 

L3UBR  (RESTORE)  =>  nothing 

Throws  away  the  current  memory-resident  workspace  and 
reads  the  workspace  stored  in  the  current  workspace 
file.  A  planned  enhancement  is  the  ability  to  specify 
the  file  from  which  to  read  the  new  workspace.  The 
function  is  useful  only  at  the  command  level,  as 
RESTORE  resets  the  interpreter. 

SUER  (reverse  list)  =>  list 

Reverses  the  order  of  the  elements  in  the  list.  Does 
not  modify  the  argument. 

SUBR  (rplaca  objectl  object2)  =>  objectl 
A  dangerous  function  to  physically  alter  memory  in 

Uavlisp.  It  replaces  (car  objectl)  with  object2. 

SUBR  (rplacd  objectl  object2)  =>  objectl 
A  dangerous  function  to  physically  alter  memory  in 

Navlisp.  It  replaces  (cdr  objectl)  with  object2. 

ISUBR  (SAVE)  =>  nothing 

Writes  out  the  user's  workspace.  Currently,  always 
uses  the  default  workspace  (either  .navlisp  in  the 
current  directory,  or  the  file  specified  on  the  invoca¬ 
tion  line).  A  planned  enhancement  is  to  allow  SAVE  to 
accept  another  filename  into  which  the  workspace  is 
written.  The  function  is  useful  only  at  the  command 
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level,  as  SAVE  resets  the  interpreter. 

SCRUNCH  LSUBR  (SCRUNCH)  =>  nothing 

The  only  way  the  user  has  of  returning  unneeded  free 
space  is  by  using  SCRUNCH.  This  function  will  reduce 
ALL  free  lists  and  memory  allocation  to  the  minimum 
required  to  run.  The  user  will  then  need  to  ’use  MEMORY 
to  increase  the  si2e  of  those  free  lists  needed.  The 
function  is  useful  only  at  the  command  level,  as 
SCRUNCH  resets  the  interpreter. 

set  SUBR  (set  symbol  object)  =>  object 

The  atomic  symbol  symbol  is  updated  on  the  alist  to  be 
associated  with  object .  If  the  symbol  is  not  on  the 
alist,  then  the  property  VALUE  on  the  symbol's  plist  is 
added/modified  to  have  the  value  object. 

setq  FSUBR  (setq  symbol  object  [symbol  object  ...])  => 

object 

The  same  as  set  except  that  symbol  is  not  evaluated: 
this  sometimes  saves  typing  quote  marks  at  the  key¬ 
board.  Setq  is  also  set  up  to  accept  a  list  of  symbols 
and  objects,  each  symbol  receiving  the  value  object . 
The  last  object  in  the  list  is  the  returned  value  of 
setq. 

stdin  system  symbol 

The  value  of  the  FILE  attribute  of  this  symbol  is  the 
UNIX  file  descriptor  for  the  standard  input  file  asso¬ 
ciated  -with  the  Navlisp  process. 

stdout  system  symbol 

The  value  of  the  FILE  attribute  of  this  symbol  is  the 
UNIX  file  descriptor  for  the  standard  output  file  asso¬ 
ciated  with  the  Navlisp  process. 

string  SUBR  (string  atom)  =>  string 

Returns  the  string  form  of  the  atom.  If  the  atom  is  a 

string  it  is  returned  unchanged 

number  the  value  is  converted  into  a  string  of  ascii 
characters 

symbol  the  print  name  (PNAME)  is  returned 

stringlength  SUBR  (stringlength  atom)  =>  integer 

Returns  the  length  of  the  string  form  of  the  atom. 
Stringlength  measures  the  length  of  the  string  returned 
by  (string  atom) . 

stringp  SUER  (stringp  object)  =>  boolean 

Return  T  if  the  object  is  a  string;  otherwise  returns 
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nil. 

subl  SUER  (subl  exp)  =>  number 

Subtracts  one  from  the  value  of  the  numeric  expression 
ex£. 

SUER  system  symbol 

A  property  of  symbols  that  are  Uavlisp  primitives. 
SUER  functions  are  passed  the  results  of  evaluating 
each  of  the  arguments.  Assume  that  f  i3  a  SUER  primi¬ 
tive.  Then 

(setq  x  1  y  2  z  3) 

(f  x  y  z) 

will  invoke  the  function  f  with  the  three  arguments  1 , 
2,  and  3- 

subst  SUER  (subst  objectl  object2  list)  =>  list 

A  new  object  is  created  from  list  in  which  all 
occurrences  of  object2  in  the  list  (and  its  sub-lists) 
are  replaced  with  objectl  .  llote  that  the  ec^  function 
is  used  for  the  equality  test. 

|  (subst  'a  'b  '(a  b  (a  b  c))) 

(a  a  (a  a  c)) 

symbolp  SUER  (symbolp  object)  =>  boolean 

Returns  T  if  the  object  is  on  the  oblist  (i.e.,  is  a 
symbol,  not  a  list  or  number,  or  string);  otherwise 
returns  nil. 

T  system  symbol 

The  symbol  whose  interpretation  is  'true':  nil  is 
interpreted  to  be  'false'. 

terpri  SUER  (terpri)  =>  CR 

Prints  a  new-line  character  on  the  standard  output. 

then  system  symbol 

A  'pretty'  symbol  that  is  optional  in  cond.  It  helps 
to  make  the  code  more  visible  and  is  ignored: 

(cond  ((eq  x  y)  then  (fen  ..)  (fen  ...)  ) 
elste  ((eq  x  z)  then  (fen  ..)  (fen  ...)  ) 
else  : 

) 

times  LSUBR  (times  exp  exp  ...)  =>  number 

Returns  the  product  of  the  exp's. 

TRACE  FSUBR  (TRACE  symboll  [symbol2  ...])  =>  (symboll  ...) 

Places  a  TRACE  property  on  the  plists  for  the  indicated 
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undivert 


UNTRACE 


VALUE 


symbols.  If  there  is  an  ZX?R,  FEXPR,  LIXPR,  PUSH, 
L3UER,  or  FSUBR  defined  for  the  symbol  in  question, 
then  during  evaluation  a  trace  will  be  printed  showing 
the  name  of  the  function  and  the  parameters  being 
passed  to  it. 

LSUER  (undivert  [which])  =>  T 

Which  must  evaluate  to  one  of  the  atoms  input,  output, 
or  append .  If  elided,  both  the  input  ani  output  will 
be  reset  to  the  standard  input  and  output.  THIS  FUNC¬ 
TION  DOES  NOT  CLOSE  THE  UNDIVERTED  FILES!  (see  fclose) 

(divert  'output  'outf) 

(undivert  'output) 

FSUBR  (UNTRACE  [symboll  symbol2  ...])  =>  (symboll  ...) 
Removes  the  TRACE  property  from  the  indicated  symbols. 
If  no  symbols  are  specified,  then  the  TRACE  property  is 
removed  from  ALL  symbols  on  the  oblist. 

system  symbol 

The  property  which  holds  the  value  of  the  symbol. 


zerop 


SUER  (zerop  number)  =>  boolean 

Returns  T  if  the  number's  value  is  zero.  Otherwise, 
returns  nil. 
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